home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs18.d81 / koal_run.prg (.txt) < prev    next >
Commodore BASIC  |  2009-10-10  |  2KB  |  56 lines
  1. 10 REM KOALA TO RUNPAINT AND BACK!!
  2. 20 PRINT"[147]";TAB(8);"[159]WRITTEN BY DAN SWITZER II[146]":POKE53280,.:POKE53281,.
  3. 30 FORT=1TO900:NEXTT
  4. 40 PRINT"[147]"
  5. 50 PRINT"[172][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162] ";
  6. 60 PRINT"[161][159]                                       [146]";
  7. 70 PRINT"[161][159]             KOALA TO RUNPAINT         [146]";
  8. 80 PRINT" [159]                                       [146]";
  9. 90 PRINTTAB(12)"PRESS F1[146] FOR DOODLE!"
  10. 100 PRINTTAB(7)"[172][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]"
  11. 110 PRINTTAB(7)"[161][154]                          [146]"
  12. 120 PRINTTAB(7)"[161][154]   A)KOALA TO RUNPAINT!   [146]"
  13. 130 PRINTTAB(7)"[161][154]   B)RUNPAINT! TO KOALA   [146]"
  14. 140 PRINTTAB(7)" [154]                          [146]"
  15. 150 GETA$:IFA$="A"ORA$="B"THEN180
  16. 160 IFA$=CHR$(133)THEN290
  17. 170 GOTO 150
  18. 180 IFA$="A"THENGOTO240
  19. 190 PRINTTAB(11)"DO NOT USE PREFIXES![146][159]"
  20. 200 PRINT"RUNPAINT! FILENAME:";:OPEN1,0:INPUT#1,N$:CLOSE1
  21. 210 F$=CHR$(129)+"PIC A "+N$:N$="RPM."+N$
  22. 220 OPEN15,8,15,"R0:"+F$+"="+N$:CLOSE15
  23. 230 GOTO 10
  24. 240 PRINTTAB(11)"DO NOT USE PREFIXES![146][159]"
  25. 250 PRINT"KOALA FILENAME:";:OPEN1,0:INPUT#1,N$:CLOSE1
  26. 260 F$="RPM."+N$:N$=CHR$(129)+"PIC A "+N$
  27. 270 OPEN15,8,15,"R0:"+F$+"="+N$:CLOSE15
  28. 280 GOTO40
  29. 290 PRINT"[147]"
  30. 300 PRINT"[172][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162] ";
  31. 310 PRINT"[161][154]                                       [146]";
  32. 320 PRINT"[161][154]           DOODLE! TO RUNPAINT         [146]";
  33. 330 PRINT" [154]                                       [146]";
  34. 340 PRINTTAB(12)"PRESS F1[146] FOR KOALA"
  35. 350 PRINTTAB(7)"[172][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]"
  36. 360 PRINTTAB(7)"[161][159]                          [146]"
  37. 370 PRINTTAB(7)"[161][159]  A)DOODLE TO RUNPAINT!   [146]"
  38. 380 PRINTTAB(7)"[161][159]  B)RUNPAINT! TO DOODLE   [146]"
  39. 390 PRINTTAB(7)" [159]                          [146]"
  40. 400 GETA$:IFA$="A"ORA$="B"THEN430
  41. 410 IFA$=CHR$(133)THEN40
  42. 420 GOTO 400
  43. 430 IFA$="A"THENGOTO490
  44. 440 PRINTTAB(11)"DO NOT USE PREFIXES![146][159]"
  45. 450 PRINT"RUNPAINT! FILENAME:";:OPEN1,0:INPUT#1,N$:CLOSE1
  46. 460 F$="DD"+N$:N$="RPH."+N$
  47. 470 OPEN15,8,15,"R0:"+F$+"="+N$:CLOSE15
  48. 480 GOTO 290
  49. 490 PRINTTAB(11)"DO NOT USE PREFIXES![146][159]"
  50. 500 PRINT"DOODLE FILENAME:";:OPEN1,0:INPUT#1,N$:CLOSE1
  51. 510 F$="RPH."+N$:N$="DD"+N$
  52. 520 OPEN15,8,15,"R0:"+F$+"="+N$:CLOSE15
  53. 530 GOTO290
  54. 540 END
  55. 550 (null)"S0:KOALA/RUNPAINT":SAVE"KOALA/RUNPAINT",8
  56.